fix comp-limplify-block for wrong cl func usage

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index d9b0c184625b8c9cd42b6b7197aef0e72cd59eef..cf779179d709293b7fac63926b035778090a35b8 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1092,7 +1092,7 @@ The block name is returned."
            (when (and fall-through
                       (not (comp-block-closed bb)))
              (comp-emit `(jump ,next-bb))))
-         (return)))
+         (cl-return)))
    until (comp-lap-eob-p inst)))
 
 (defun comp-limplify-function (func)